00100	TERNAL INTEGER ARRAY ISTK[0:ONE], ITBL[0:ONE], INEST[0:ONE] ;
00200	TERNAL STRING ARRAY  SSTK[0:ONE], STBL[0:ONE], SNEST[0:ONE] ;
00300	
00400	TERNAL INTEGER ARRAY	COMMENT "ALIASES" for Dynamic Arrays ;
00500		OLDPAGE, NEWPAGE, THISFRAME, MOLES,NMOLES, SHORT,NSHORT, OWLS,NOWLS, THISAREA, WAITBOX, AVAILREC[0:ONE],
00600		AA,NAA[0:ONE, 0:ONE] ;
00700	
00800	TERNAL INTEGER SYMBOL,ERRFLAG;
00900	
01000	TERNAL STRING ARRAY SYM[-1:ONE];
01100	TERNAL INTEGER ARRAY NUMBER[-1:ONE];
01200	
01300	DEFINE PRINT="OUTSTR(",MSG="&'15&'12)";
01400	
01500	DEFINE ie = "COMMENT" ;